home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / UTILITY1 / MSWLGO35.ZIP / EXAMPLES / CDROM.MCI < prev    next >
Text File  |  1993-08-10  |  595b  |  26 lines
  1. ;
  2. ; Function:
  3. ;
  4. ; This routine will allow you to control your CD Player
  5. ; The :arg is the desire track you wish to play
  6. ;
  7. ; To run:
  8. ;
  9. ; load "cdrom.mci
  10. ; Call CDROM track
  11. ;
  12. ; System requirements:
  13. ;
  14. ; You must have Windows 3.1 (or 3.0 with Multi-Media Extentions)
  15. ; You must have the correct driver loaded in Windows for your CD Player.
  16. ; You must have a CD Player.
  17. ;
  18. to cdrom :a
  19. print sentence [opened cd on channel] mci [open cdaudio alias cd]
  20. mci [set cd time format tmsf]
  21. mci sentence [play cd from] :a
  22. print sentence [playing the cd on track] :a
  23. mci [close cd]
  24. end
  25.  
  26.